home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / ezdial11.arc / MENU.SLT < prev    next >
Text File  |  1988-07-12  |  3KB  |  111 lines

  1. str code1[] = "XXXXXXXX";     //Enter your User ID for the X's
  2. str code2[] = "YYYYYYYY^M";   //Enter your password for the Y's
  3. str cr[] = "^M";
  4. str sender[];
  5. str input[6] = "      ";
  6. str code3[25];
  7. str part1[] = "C D/";
  8. str part2[] = "/12,";
  9. str part3[];
  10. str fon_ext[] = ".FON";
  11. str fon1[9];
  12. int phone;
  13.  
  14. main()
  15. {
  16.  input = "      ";
  17.  set_cparams(1200,0,8,1);
  18.  clear_scr();
  19.  prints("     ****************************************************************");
  20.  prints("     *                E-Z DIALER ver. 1.00                          *");
  21.  prints("     *                                                              *");
  22.  prints("     *   GAATL...Atlanta    MABOS...Boston     ILCHI...Chicago      *");
  23.  prints("     *   OHCLV...Cleve.     TXDAL...Dallas     CODEN...Denver       *");
  24.  prints("     *   MIDET...Detroit    CAGLE...Glendale   CTHAR...Hartford     *");
  25.  prints("     *   TXHOU...Houston    MOKAN...K City     CALAN...L. A.        *");
  26.  prints("     *   FLMIA...Miami      WIMIL...Milw.      MNMIN...Minn.        *");
  27.  prints("     *   NJNEW...Newark     NYNYO...NY City    CAPAL...Palo Alto    *");
  28.  prints("     *   AZPHO...Phoenix    ORPOR...Portland   NCRTP...RT Park      *");
  29.  prints("     *   CARIV...Riverside  CASAC...Sacro.     UTSLC...SL City      *");
  30.  prints("     *   CASAD...San Diego  CASFA...San Fran.  CASJO...San Jose     *");
  31.  prints("     *   CASAN...Santa Ana  WASEA...Seattle    MOSLO...St Louis     *");
  32.  prints("     *   FLTAM...Tampa      DCWAS...D.C                             *");
  33.  prints("     *          EXEC...Exec-PC      PCP...Pursuit BBS               *");
  34.  prints("     *                      BYE...Log off                           *");
  35.  prints("     ****************************************************************");
  36.  prints("     Enter your choice.......                                        ");
  37.  gets(input,6);
  38.   strupper(input);
  39.   if (input == "EXEC")
  40.     calld("exec");
  41.   else if (input == "PCP")
  42.     calld("pcpbbs");
  43.   else if (input == "BYE")
  44.     call("bye");
  45.   else
  46.     dial_it(input);
  47. }
  48. dial_it(str input)
  49. {
  50. substr(input,0,5,fon1);
  51. strcat(fon1,fon_ext);
  52. int status, t1, t2, t3, t4, t5, t6, phone;
  53. t1 = track("@",1);
  54. t2 = track("PASSWORD = ",1);
  55. t3 = track("CONNECTED",1);
  56. t4 = track("BUSY",1);
  57. t5 = track("UNRECOGNIZED",1);
  58. t6 = track("NOT OPERATING",1);
  59.  
  60.   {
  61.    strcat(code3,part1);
  62.    strcat(code3,input);
  63.    strcat(code3,part2);
  64.    strcat(code3,code1);
  65.    strcat(code3,cr);
  66.   }
  67.  
  68. cputs(cr);
  69.  
  70. while (1)
  71.   {
  72.    terminal();
  73.  
  74.    status = track_hit(0);
  75.  
  76.     if (status == t1)
  77.        cputs(code3);
  78.  
  79.     if (status == t2)
  80.        cputs(code2);
  81.  
  82.     if (status == t3)
  83.        {
  84.        loadfon(fon1);
  85.        dial();
  86.        break;
  87.        }
  88.  
  89.     if (status == t4)
  90.        continue;
  91.  
  92.     if (status == t5)
  93.        break;
  94.  
  95.     if (status == t6)
  96.        {
  97.        clear_scr();
  98.        prints("Error dialing City. It is not operating. Press F9");
  99.        break;
  100.        }
  101.  
  102.   }
  103. track_free(t1);
  104. track_free(t2);
  105. track_free(t3);
  106. track_free(t4);
  107. track_free(t5);
  108.  
  109.  
  110. }
  111.